@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} B2 |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}u) !"`3!3LIST "D:INTRO.LSTCONVER=}TED BY JOHN BLUMECODEWRITER CORPORATION;@%, AU  AUp6-F:A,&@6-AV>}$+%@+%@++6-?:C:,<%@<%@<A,II6-?:C:,<BBy<<AY<?}@F<B2w<@<A<,?%A?6-?:C:,<%A<%A<A(,?%A@@}?6-?:C:,<%A@<%AA<A(,B2W@A#@6-A((6-?:C:,:,7 $0,0,60,60,60,60C},255,2550uSYSTEM CONFIGURATION5uB2y@?u +@DuQ0@@70@@@QD}0@@Iu7-7 @____________________Nu)-@@) @SYSTEMSu0E}-@@0 @ CONFIGURATIONXu'-@@' @MENU]u7-@7 @________F}____________bu,-@@ , @ NUMBER OFgu7-@@7 @ DRIVES = >:@,lu7- }49820822639714161121647961811183011211582711611983012012382312412790028128871291298 H}71300308823103199132135900361366433683724337437845380388813903999440242317142543896 I}441446434484524345445845460468814704799448250317150551896521526435285324353453845540 J}548815505599456258317158559896601606436086124361461845620628816306399464266317166567 K}89674075896762776437867989680281884826838948428588486487896Date ../../..Cust # .......Salesp L}er ............Our Ord # ......Sold To ..............................Shipped To ...........................Address ...... M}........................City/State/Zip .......................ϣ᭭孭󭭭*.......*.......*.. N}/../..*.........䭭𭭭ϭ1)...#-...#-...#-........-........$Des1 .................Cost O} ........$2)...#-...#-...#-........-........$Des2 .................Cost ........$3)...#-...#-...#-........-...... P}..$Des3 .................Cost ........$4)...#-...#-...#-........-........$Des4 .................Cost ........$Sub T Q}otal ........$Tax Rate % ...#Tax ........$Discount .......$FOB ........$Shipping .......$Total ........$8871291298 opq \\RPPCWDERERDISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMDS}OTMDIMLENABLEINFILEGLBFFILTDIFOUNLRGSMLNOPCOLCOLSMEXSMLREXLRKEYLOGLOBALLKEYWORDMTLPAGFKESCT}REELINMSCREEXLPTPTPNILINEF1F1F1F2F1F2F2F2F2F2F3F2F3F3F3F3F3F3F4F4F4F4F4F4F4F4F4KEYFU}IELDD@ @ V}@@@W} !"#$%&'()*+,-X}./0123456789:;@<=Y}>?@A@BCDEFGHIJKLZ}MNOPQRSTUVWXYZ[\[}]^_`abcdefghijkl\}mnopqrMAX RECORDS=172SET UP DIM ARRAYS+6-@ B]}+AR@ >:A%, Running... @ A()9 Bq B)-@@"9  P^}rinting...*2-@!6.2-@8+% 1!A'%6-&A(,67%@,.>:,- _}  3. / B B0$U))31,28,31,30,31,30,31,31,30,31,30,31Z?9@,#@.-@@`}2";68,-? _36-@I6-Ar'6-36-APdDIM STATEMENTSi00;$@%@,;@@a},;@ ,nH6-@H;Ar,9@P,9@I,;@@,;@@,sRR;AP,;AP,9@P,b}9@I,9@I,;@@,;@@,v%%;@@,;@@,;,9,x&6-@ B&(A'} c}B A //@@D1:INVOICE.SCR:@%68@,-@:68@,-@d}-@@@@@ 68,-68%@,-8,%%%68%e}@,-8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@@f}$$678,<8%@,&@,. @# B#CHANGE DISK MESSAGE)6-F:Ap, B)(A g}h6-6-|* 6. 67@@,.*67@,.$ 6. 67,.$67@,."h}A@X A@#BU! A,@X@@D1:INVOICE.GLB-@" Ai}3@ 6-A:,6-8%@,&8,""8,&@B$B#$$678,<8%@,&@,.j} A5''678,<8%@,&@,.0X  A6-@;6.D :INVOICE.IDX;67@<@k},.=:F:Ap,,+@+@@@67,. 6-% A`56- l}A56-A:7$@%@,, B* 6..67@@,.*67@,.$@ B`m} Be5 +6-@+AR@5 B >:A%,*-@@* Program designn}ed-@@ by0-@ @0 CodeWriter Corporation(-@@( Invoice System .-o}@@.(Your selections are:>-@@ > $File preparation.(first time only).F>-@@>(p}$Enter new records..................E>-@@>($Lookup records.....................L!>-@@>(q}$Search records.....................S&>-@@>($Update records.....................U+>-@@>($r}Delete records.....................D0>-@@> $Exit program.......................X5>-@@>($Es}xit to main menu..................M:>-@@ >($Enter function by pressing the key ?<-@@"<(" t}To return to this menu press D16-@76-@ '6-@'1 B F4)4>:@',AH4Fu}AI"AK4EA M4LBO4SB Q4UB0S* 4D B@v} @* AX* 4XA8'+*[4MA] A16-@ Bw}' B1 Ap + A)AR@;-@@^ Loading program please wait...pARx}% D:MENU.BAS Bm +'0@@A0@@[0@@y}@mAR@9-@@9 This option will erase all your5-@@5 previously z}entered records.=-@@= #To begin file preparation press =-@@= #To exit file preparati{}on press ?-@@? %Please enter choice/press RETURN ۠ 16-@26-@7'6-@1 B |}4CA4XA A5LV? >:A%,"-@@? This will take some tim}}e` Bot A##@@E:A `a (}-@@2 Yo~}ur file is full.D-@@a Hit to continue.#6- B# A# 6- B} }#AR@#-@ 8,!@A!0*/-8,8,/ 78,<8%@,&@,48,"}A!0>8,"@ mm/dd/yyH>8,@*8,> 7@<8%@,&8,,R AR}\6-aH-@@"H &@# records on file f-@p''8, @})8,!@A!u<-@@#< ! to skip fields/return to menuz A{0A!|}@A#/ -/8, @)8,!@A!y8, @A!xo6-%6-8%@,&8,}D8,&@B$B#e678,<8%@,&@,.o A!y$$678,<8%@,&@,.  6- }A!$$678,<8%@,&@,. 6-@# B BP#6-@AR@j}-@@"? % for menu, to print, j(% to change, to save AR}4F:Ad,"@(*AdAU4 A#,F:B2y,"@" @@, A" ,F:B2y,"@" B3}, A"P F:B2y,"@A"P A"%(A#6.7@(<@3,! BP B!} B6-%@ A E@ A@B% 6-8," @)!@%$D= 6-8,'6-8,%}8%@,&8,=6-8%@,&8,F'6-6-"@' BH 4$I BJ3!@3&}@B B!B!LAN!@* A%R#"@ A`# A S6-T}AV''B%B&B$B#X$Y 4 $\ 6- -@B:,^?6-@:7,,9"@v})"@w)"A)"A ?6-`  ($bD7<,4m)7<,4MA6-A:78,<8%@,&@,,%D$d},)6-A:78,<8%@,&@,,&,$0AeH-@@"9 You must enter an Order Number.E6-@}H$6-$*+9#@@E:/6-9 B + B(A+>-@}@">($ to exit, to print, +))( to change, to continue+4F:Ad,"@(*Ad}AU4 B@%+,F:B2y,"@" @@, Bp*+-F:B2y,"@#@- B/+ F:B2y,}@B54+ B3(B@5+ 6-6-%@6+V+7@(<@3,07@(<@3,5 B `L6.7}@(<@3,V BP>+ B0.@ A..6-@.##@@E:.6}-@ B. @B%. 6.6.6-. }-@@.-- $SCAN ALL OR SELECTED} RECORDS (S/A)? .16-@6-@8'6-@21 B .4B%/4AB#p/4SB `}/ B / }-@@!/>' WHICH FIELD TO SELECT ON (1-47,> OR '?' TO LIST)? &/16-@6-@}'6-@1 B0/4>:@',B%:/+ 4?6-! B0+ B `D/4 B!@6-A:,4 @})!@GB!@N/6--@X/56-%@58, @)8,!@B! b/  B!Pl/2-}@@#(  Ġ2 B v/"6-8%@,&8,"6-8,/!@6-@/4-@@}4 78,<8%@,&@,/ @B"p/,   ,  SMALLEST VALUE TO SELECT?/   7@<,}/  INCLUSIVE(Y/N)? /(  (  LARGEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /'6}-@6-@'6-@ / B#0//6.7@<, "@/6.mm/dd/yy//   /  SMALLEST VALUE} TO SELECT? 0$$  INCLUSIVE(Y/N)?  0,  ,  LARGEST VALUE TO SELECT? 0$$  INCLUSIVE(Y}/N)?  0!6-@ 6-@0!6-*0 B'/04B%40 6-6.6->0+6-%@!@ +6-}%@@0 B'C04B%H0 6-6.6-R0!&@B%W0 >:A%,\0+6-@$6-}&@%6-+6-f0 B Bp0"B%0u0"@B$qz0"@B$0$$6.78},<8%@,&@,04B$@02)*4B%p04B%003)*4B%p0 B%00$$6}.78,<8%@,&@,04B$u0 6.6. B'6.0## )*"B%p04}B%00 6.6. B'6.0## )*"B%p0 B%00''6-A:78,<8%@,&@,,}04B%0 )*"B%p04B%00!)*"B%p0 BP0AR@ B}0>-@@">($ to exit, to print, 0--($to change, to continue, elete1:F:Ad,"}@(*AdAU06-: B%p1>F:Ad,"@X*AdAU4 B@0> B#p1,F:B2y,"@}" @@, B%5 1 F:B2y,"@B%p1 F:B2y,@B%E1& B36-6-&(B%5}1V+7@(<@3,07@(<@3,5 B `L6.7@(<@3,V BP1! B B! B%516}-%@ B#p$1@ A1! 6-6-"@! B1-6-4)4*6-%@-$1}+!@+&@B B!1B'1"@6-A:,1B%B&B%1-6-%@}6-#6-@2- B1 6-4N1 6.1$22##@@E:2 B2(B1}p2 B32B12 6. BP3j-@@"> $Hit to return to menu, or P-@@}#j to continue editing.3)6- B)4B1p"3 B,3 B0@63 6-6-%@@33}37@(<@3,47@(<@3,B1`J3 B `T3$6.7@(<@3,$ BPh3 B Br3}@ A33 6.6-4 B4 }4Q0@@70@@Q0}@@@!4 BP&4<-@@"< "Enter 1-36 to change field, '?' to04++ " list, 'p'rint recor}d or 's'ave. :416-@#6-@4'6-@1 B?4 BD4 4S)4s6-@ $I4/4P)4p} @@% B/ B3PN4 46-$X4+ 4?6-@! B0+ B3@b496- B!P}9) @)!@6B6l46--@v456-%@58, @)8,!@B404 4}6-@4 A4 46-$4$$678,<8%@,&@,.4 B3  5*5R-@@"}< !ĠĠ - Hit H6-R B45 B3P66##@@E:6 B}6(B@6k B-@@#> Sure you want to delete? J6-@#V6-@3a6-@:Y,k B}64N)4B@66-&@ B `66-6@6 B`7 6. 7$>$B$END GLOBALS}B BPB[-@@", Printer not ready.>-@@#[ Hit to continue.BC-@@"!}6-@"-6-@96-C BB B$PFPC CALCS AND GLOBALSQF BRF6-A:7Au<Ax},,F6-A:7Ay<A,,F6-A:7A<A,,F6-A:7A0<A3,,F6-A:7A4<A7,,F6}-A:7AP<AX,,F6-A:7A<A,,F6-A:7A<A,,F6-A:7A<A,,G6-A:7A}@<AC,, G6-A:7AD<AG,,G6-A:7A`<Ah,,,G6-A:7A<A,,6G6-A:7A<A$},,;G6-A:7A%<A3,,@G6-A:7A4<AA,,LGCALC P.C.'SG 6-&G 6-$G 6-&G 6-$}G 6-&G 6-$H 6-&H 6-$!H6-%%%+H6-+'A,$?H6-%&%%H6 6-6-@ B$}667A<A,.H6 6-6-@  B#667A!<A),.H6 6-6-@ B$667A8<A}A,.H6 6-6-@  B#667Av<A,.H6 6-6-@ B$667A<A,.H6 6-}6-@  B#667A1<A9,.I6 6-6-@ B$667AH<AQ,.I6 6-6-@  B}#667A<A,.I6 6-6-@  B#667A<A,.%I6 6-6-@  B#667A}<A,.9I6 6-6-@  B#667AB<AP,.pI B`$8JBJ6- BDJ6-}GJ+-@@!+ Please enter key.LJ%-@@%  Our Ord # VJ16-@6-@'6-@1 }B[J4)4>:@',$`J B%6.oJ+-@@!+  qJ 6. BtJ(B}`~J! 6-6-%@! BJ BJ""07@(<@3,B@J BPJ'-@@#'  Is} this it? J06-@6-@#&6-@:N,0 BJ BJ 4Y$J 6. BJ B`JC }}-@@C #No Record Found. Hit for menuJ F:B2y,@BpJ$ N*N# 6. 67,.}#67@,.4N 6.6.9NF@#6.D :INVOICE.DATF67@<@,.=:F:Ap,,>N @@}CN-@HN@RN\N6-P:'@',fN6-&$@'zN6-%@dN6-%@dN}6-%@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%@,.>:,N67B:,%@},.>:,N67B:,%@,.N-@N''8,")8,!@BN$$6.78,<8%@,&@},N @N N1 }RECORD NUMBER=1 LEN OF INDEX$=B:,O  TRACK/BYTE: /O 6-@O}@ B`O. 6.067,.$67@,.. BeO B$O B6.$O.F:A,"Ab}. }DISK FULL ERROR.)O5F:A,Ab5  }DISK ERROR #F:A,.OR!  Hit to continue.-6-96-}E6-O BR$LOVO$ 6-B:,!@$6-@`O/67%@,.!6-@/6-&@jO*} @6-@'6-*$tOK6-$@&@.37<%&@,:6-H6-%@K$~O"B}O.6-P:+%,'@,.6-$@&@O/7<%&@,6-O&37<%&@,&6-%@O }BPO6-$@&@O6-+47<%&@,,O6.7<%@,$OP;6.D :INVOICE.DAT;67@}<@,.=:F:Ap,,P+@+@@#P# 6. 67,.#67@,.(P@2P}-@6-$6.D :INVOICE.PRG>67@<@,.=:,T+@+@@T@}6-!@$T @ A)T B$UU6- B pU4)4$U76}-A:7@<@,,76-A:7@<@,,V'6-A:7@<@,,' B V++)) B} p V""P:,)P:,)P:,B pV30"@*"@)*P:'@,"'@3$V/ @)!@%6-@}/ B "V. @)!+8,,$6-@. B ,V$6V'-@@"'  Invalid date.;V B6-@}$@V--@@"- Month out of range.EV$JV+-@@"+ Day out of range.OV$TV^V6-} B!PhV:-@@": A numeric answer is requiredrV$VV 46-$V B!6-}A:,V6- B$V6-@ B$W&W$$6-P:A$%?P,'A0W""6E)E}B#:W! 6.=:,6-B:,!6-@DW.-@7<,4..6-%@&NW SW 6.XW& %!6.#}67%@,.&$bW67&@,.0.00lW67%@&&<&,.$vWK 6.*67&@,.+67@,.H67&}@<&@,..K$WW""6E)EB$W 6.=:,6-B:,W6.7@<,W 6.67%@},.$W. 6.*67&@,.+67@,..$W6.7@<,W 6.67%@,.W$HXMX" 4}6. 6."$RX0 6-A:,6-A:7@,,06-A:7@,,\XH6.=:%A,.67@,.=:%A,H67}@,.=:%A,fXD67@<@,./567@<@,./D6.7@,pX$XX%6-6-}% B'pX'6-A:7@,,'6-A:7@,,X 6-N:&,$X 6-A:,6-A:,X 6-N:&,$X'6}-A:7@,,'6-A:7@,,X B6-N:&,$YY!6-B:,"!$$Y8-@B:,,7<},10*7<,/986-@.Y   $tY~Y!6-@6-B:,!6-B:,Y   $Y-&Y$7%@}<%,4$6-Y   $YY4 }AR@(6-46-@Y'6-@6-'6-}Y!!6.Keyboard entered fieldsZ%6-@6-@% B3ZB1Z##6.Program calculated fields(Z}%6-@6-@% B3:, >:,w"Bpw&6-%@&7<,0/Bpw.6-%@$*@@1. Bpw) 6-}6-&@)AR@w -% 7<,w"7<,4/"6-&@wD67%@,.'AR}:*@@0D Bpwx x6-F:B2y,x"@*"@$x"@*"@$x"@ }*"@$x"@*"@$#x"@*"@$(x"@*"@$-x B%Px B  }Zx0Y*0N*0Bdx$x.@.@@K:xAR@x -x)! }@1* @) >:%A(,x' @2)!@' >:A`,x)@x"AUB x"@' }6.$x!@1* @6-y'!@* A#'6-&@2y B y -6.>:, $y]}33MSKPRTRSCRSPFLAGINDEXINFILEDATGLBULFLAGLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU}MTXNUMSESUMITEMFLDBPDFFEPSVDVDSECFLGFSFLTYPPAGSECTIOROCOPDIFKENOPPMBLANKOERVDVDVNVNVA}1VA2GTSUMPCF3F4F6ISECFL(((P(xZ@L$ [$ j$ }k$Z 'PP (PPe(d@3@@x@@@IA"3Aw!3AdAxAK 2}@@@@V@H @!@"A#(1A$)7A%9+1&@'@A(_,)*C }+BA,,-AU./0123456@78@9}:;<=>?@@ABCDEFGH#I$}AJ#AK#AL#M$ N+$O1$P@QRSAVE "D:BASIC.RZAR@ }d5}(>:A%,"-@@5 Invoice Reporti'-@@ '  Designed by :n0-@ @0 CodeWriter }Corporationx-@A . STEP ONEjj;@@,;@@,;@@,;@f$@,};@,;@$A,;@"$@9, RR;@,9@I,9@P,9@P,9,9,9},<<;@ ,;@0,;@,;@,;@',ZZ;@,;@,;@,;@"$@9,;}@,;@,;A,.G+F:Ap,"@)F:Ap,"@=6.=:F:Ap,,G A 3A +'0@}@A0@@ @84-@@4 Which drive will hold yourB*-@@* data d}isk? (1/2)L16-@"6-@'6-@1 B V%01*02 B % A` 6-A:,Apj>}6.D :INVOICE.DAT267@<@,.=:,>6-@o 6.67,.IDXt 6.67,.GLB~8 A`8@}@ D:INVOICE.SCR A0 A APD B@/68@,-@D68@},-@-@@@@@" 68,-"68%@,-8,%}%%68%@,-8,%@%&& -@@$$678,<8%@,&@,.  }@//@@D :INVOICE.F01@@6-A:, 9,9%,!}9, @@ 2 6. #67@f$@,.267@,.B67@,. $67@,.<67"}@,.7@,B6.-@@( 68,-68,-68,-2 7"A < #} 9,F-@P@Z67%A@,.d68%,-i68,-%B:,&@n x A $}@+@/-@@/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK.-@%}@. @ IN DRIVE #10-@@0 @ PRESS --@@- @ WHEN REA&}DY6-@ B$ A2. STEP TWO4 6.What is today's date? H BM 6.6-'}R!-@!(8,A!2S//&@A!@A!`A!A!T W: (}-@@:(Is th(}is all correct? (Y/N)X16-@36-@'6-@21 BY4YA00Z A2 A \##6.Ent)}er Low Date for Range a B6-f$$6.Enter High Date for Range k B6-$p++6.!Enter Low Order *}Number for Range u6-@ B6-z,,6."Enter High Order Number for Range "6-@ B6-"+}$))6.Enter Salesperson for Section 4"6-@  B6."$&&6.Enter Customer for Section 5"6-@0,} B6."$  . STEP THREE  A +'0@@ @A0@@ @ 9--}@@9 Do you want this report sent to --@@- creen or rinter?  16-@%6-@'.}6-@21 B  0S*0PA0` 6. ! 4P B!A0` A5  9, $-/}@ 68,-$  % } B %-@@ Do you want all sections /-@@/ of 0}this report? (y/n) 16-@'6-@'6-@21 B ) 4Y-@"68,-& )$  } B 1}6- 3-@@3 Enter a section number to 4-@@4 include in this report, or (-@2}@(  to exit .-@@. SECTIONS IN REPORT: 16-@ 6-@'6-@1 B3}  4 B$  A36-A:,  @)!)8,A3 46-P:'@@,4-%@&@@$%4}@  * 6-%@4 68,-> A3 UPPER LOWER CASE  }-@@ !! Do you want 5}to ignore the 2-@@2 difference between upper /-@@/ and lower case? (y/n) 16-@'6}6-@'6-@21 B  6.N4NA9 6.Y  6. B(6.  6. B(6.<7}4P)4p A`. STEP FOURA +'0@@ @A0@@ @0-8}@@0 Do you wish to sort? 16-@6-@&'6-@21 B4NAP_ A@c9}@@@@ D:SORT.BASK@U B_ A@p }-@@BB  Can't find:} >:@4, D:SORT.BAS>:@4, on disk.-@@&9-@@9 Enter field to sort records;} by.6-@@6 (1 - , or to list)? 16-@)6-@'6-@1 B+4L)4l<} B0! }+ A@p A@6-A:,A-!**8,!*8, @7 BA AAP";-@=}@; Field  invalid. Enter for,@-@@6 a list of fields to sort on.@ A@6M 6-6->}#-@?8,!*8, @M6-%@8 ;ASC, OR DSC SORT@Q-@@ .-@?}@Q scending or escending sort?J'6-@56-@'6-@2T# B #0A*0DAA^@} 4D6-6h//@@D:SORTPARS.DAT|9& @7@:&@2,BY   $YLIST FIELDSY4 }AR@(6-46-@Y6-@Z}6-Y!!6.Keyboard entered fieldsZ%6-@6-@% B3ZB1Z##6.Program calcu[}lated fields(Z%6-@6-@% B3:, q}!B'DOS SYSB+AUTORUN SYSB"-BOOT B GINVOICE SCRBRINVOICE PRGBh INVOICE R01Bu~INVOICE P01BINVOICE F01BDMENU BASB>MENU FLEBCLINK BASB)GSORT BASB)pNOTES FLEB NOTES BASUSER DVARS TMPDVARS TMP>:,w"Bpw&6-%@&7<,0/Bpw"6-%@ " Bpw) 6-6-&@)ARr}@w -% 7<,w"7<,4/"6-&@w867%@,.'AR. 8 Bpws}CONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONt}SOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*"@$x"@*u}"@$x"@*"@$#x"@*"@$(x"@*"@$-x B%Px B Zxv}0Y*0N*0Bdx$x.@.@@K:xAR@x -x)!@1*w} @) >:%A(,x' @2)!@' >:A`,x)@x"AUB x"@'6.x}$x!@1* @6-y'!@* A#'6-&@2y B y -6.>:, $y]@y})0@@C0@@]0@@@"y$|y--@@"- 7@<@z}5,y$}@-@@@(&}))(! 1 | Display All Invoices },,({}$ 2 | Display Invoices within},,($ | a Specified Date Range}--(% 3 | Display Invoices betwee|}n}''( | Two Order Numbers}++(# 4 | Display Invoices for a#}**(" | Specific Salesperson}}(}++(# 5 | Display Invoices for a-}((( | Specific Customer2}$ D:INVOICE.R01CRNUMFLDNUo8999:MSKPRTRSCRSPFLAGINDEXINFILEDATGLBPNTULFLAGTLEHEDTDIIDINPOBETYPERRCRNUMFLDNUMTXN}UMSESUMITEMFLDBPDFFTSTEXTLOFSSECFLGNRNRSPSECTIOPENVDOVSUPAGPRTREPRTSUREERROFPCCOOOFA}LDIKEMBLANKIDXVDVDF3VA1F6VA2SPGTSUMF4VNVDVNVN1ANDF4VN} @}@ !@"@#@$%}&@'(@)*+@,-./01@234}56789:;<@=>?@@ABCD}EFGHIJKLMNOPQRS}TU@V@W@XYZ@#[\]^_SAVE "D:BASIC.P}. STEP ONEjj;@@,;@@,;@@,;@f$@,;@,;@$A,;@"$@9,} ]];@,9@I,9@P,9@P,9,9,9,9,<<;@ ,;@0,;@},;@,;@',(]];@,;@,;@,;@,;@,;@,;A,;@,)&}6-F:Ap,&!A0.A +'0@@A0@@ @84-@@4 }Which drive will hold yourB*-@@* data disk? (1/2)L16-@"6-@'6-@1 B V%0}1*02 B % A` 6-A:,Apj>6.D :INVOICE.DAT267@<@,.=:,>6-@o 6.}67,.IDXt 6.67,.GLBy 6.67,.I01{67@<@,.1~8 A`8@@} D:INVOICE.SCR A0 A AP/ B@/68@,-@-@@}@@@ 68,-68%@,-8,% @//@}@D :INVOICE.F01@@6-A:, 9,9%,9, @}@B67@,. $67@,.<67@,.7@,B6.-@@( 68},-68,-68,-2 <%%9%@,;@$@V,F%68@,-@%(AK-@P}@Z678,,.d68%@,-8,%B:,i68%,-n x A  68,- @ A }@+@/-@@/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK}.-@@. @ IN DRIVE #10-@@0 @ PRESS --@@- @} WHEN READY6-@ B$READ IN TEMP VARS7@7@@ D:DVARS.TMP! B}!READ IN VARIABLES@ 6.N6.Yk@@*@7@}D@Q@^@k@ @ 9, -@ @68,-}   @ 44@3@ D:DVARS.TMP A`  CLEAR OUT SUMMARY  }6-6-ADJUST SEC. SUMMARY"$"AD&$$}OVERALL SUMMARY ADJUST "6-%$"$"AH 6-%$68@},-8@,~ 6- $PRINT SUMMARIES B6-A?(-67A0,.SUMMARY FOR SEC}TION #?67AQ,.=:,b&67A0,.OVERALL SUMMARYG67@e<@r,. b67@x<@,.1 }##6-+!,$%+",$77*")"*")"AR(AU6-w6}-@|3#6.NUMBER OF RECORDS INPUT: )6-3 AY B$ 6-%A`6-@ (67%},.OVERALL(6-%@*67%,.6-%B:,467%,.=:,>$pz. STEP SIXA +'0@}@ @A0@@6 A`6-6@@@6-%@}67&@,.=:B%,)67&@,.7&@,) A`P Aa@ @@} Aa  Ai A` Aap6-@@67,.6-B:,%@ AaP22}6-A:7P:'@,$@%@,,&@$ Ab@3REORDER INDEX$ AS PER I018 B-@}B3 6- 36-A:7$@&@<$@,,L/6-$@&@/6-@$&@VQQ67<%@,.=:A}%@:7%@,,%@'$+@:7,,&@d,&@d,`W!67<%@,.7%@,=6-@:7%@,,&@2I!@}W6-&@dj!!67%@<%@,.>:,t  Ad+@+@@@} B 8 6. #67@f$@,.267@,.86.K67@,.#67Aa,. 367A@,.K67}Ab,.7Aa,<FSTART PRINTING REPORTPZA +'0@@A0@@ @d}?AR@? %Your report is now being produced ...i #Ag"n56-@ A05CLEAR OVERALL S}UMMARYs6-x-@{6-} "(8,Af`/ )6- A0/CLEAR SEC }SUM6--@116-A:7@$&@<@$&@,,6-@:7@$,, BREAD }IN RECORD ApCALC PC'S AACCEPT/REJECT?Af0$ ) A@$ADJUST SEC SUM! }A!PRINT RECORDS6-%@ * * B*PRINT LEFTOVER REC'S-6- AP-PRIN}T SEC SUM& AF&ADJUST OVERALL SUM 16-@ AP1PRINT OVERALL SUM"67B:,&@,.}SCR#C Af@C@@ D:INVOICE.SCR$ B Af% AiP Af&"}@ Af"+'% D:LINK.BAS) B,0,1,0,1,0,1,0,1,0,1,0 +@/-@@}/ @ PLEASE PLACE/-@@/ @ DATA DISK IN,-@@, @DRIVE # 0-@}@0 @ PRESS --@@- @ WHEN READY6-@ B$& +@}+/-@@/ @ PLEASE PLACE02-@@2 @PROGRAM DISK IN5+-@@+ @}DRIVE #1:0-@@0 @ PRESS ?--@@- @ WHEN READYD6-@} B$XbNEW PROG. CALC.'Sl$@JACCEPT/REJECTTc*6.7@<@,$ B%*6-}e66.7@<@',$ B$,4Y6 B(g 6.i66.7@(<@3,$ B$,4Y6 B(k 6}.m66.7@d<@,$ B$,4Y6 B(o 6.q B4!"@6-(+@,>!"@}6-(+*,H!$"@$6-(+A:,*A:,,R!"@6-(+4,\!"@6-(+4,"$(#2#PRINT }RECORD<#># BA#( BCLEAR PAGEF#4 " B B4PRINT AND CLEAR PAGEP#-@}Z# 6-8,! 6.=:8&,,d#* *6.78,<8%@,&@,i#8,"6@An#( 6-8,(6-}8%@,&8,p# !6-8&,s#" Aw6-"6-A:,u# B B x#''678,%$$@%$%A}@,.# #"A0#-@#DD678%,%$$@%$%A@,.78,<8%@,&@,#} #16-%@"#6-16-%@#$'PRINT PAGE''67@f$@,. $' 4P B}$.'76-6-% B7PRINT TO SCREEN8'-@@ B'A"6-@0%H:,$AA6-}@%@$H:,L'2@ V';2@'6-'@;!? Bp`'.@}.@@K:j')@t',"@:?, B@" B, Bw'"@:P, Bz'}"AU$~' 6-6-'"@E6-&@'"@a6-%@'"@C6-&@'"@B}6-%@'"@(6-&@'"@)6-%@'"@06-&@'"@16-}%@'"@6-&@"'"A$6-%@"'"@6-&@@'"@6-%@@}( 6- (!@@6-@@( 6-(!@D6-@D(("*"B}2( BPRINT SCREEN<( B)PRINT WINDOW ON SCREEN)) }AR@")+-@!}+6-%@$+%,,))-) 7%@<%@@,6)J -@"J   ROWS %@ TO %}@" @)A-@ @"A COLS %@ TO %@@ J) -@5@" T)>-@}@#> #ۿ for help, to continue.^)$*+%%PRINT PAGE OF REPORT TO PRINTER ++3B:, @f$@}367@f$@,. + BP$+''-@@f$@@ +37<%@y,*+ 4+$,},CLEAR PAGE- -)6-6-)6-%@-SCR$(70)=STR$(SECTION)-SCR$(78)=STR$(PAGE)(-D6}7AA,. ,67@f$@,.D67AB,.7AA,2-$ N*NINPUT RECORD4N>N+@+@@}HN2 6. #67@"$@9,.267@,.RN@\N-@fN''8, @)8,!}@BpN@zN$$678,<8%@,&@,.N 678,,.N.-@@6.8, @}B NX-A:78,<8%@,&@,,"X678,<8%@,&@,. N N@$U}NUMERIC FORMATTINGU6-P:@#%?P,U6-P:$%?P,'V""6E)EB  V"6-6}@V# 6.=:,6-B:,#6-%@V$-@7<,4.$6-"V 'V6. ,V%!}B 6V67&,..000000@V767%@&&,.*67%@,.4 B7$JV. 6.*67&@,.+67@,}..$WFORMAT STRINGW# B$@6.6-B:,#6.W-@:7,,"@2#6-&@- B$ W6.7@<,}W B$WFORMAT DATE YYMMDDW6- B%@W""6-A$A:,%A:7@,,X6-B$A:7@},,% X B$YFORCE UPPER CASEYB:,"$$Y-@B:,.Y6-@:7,,8Y/!@* A#/}67<,.>:&@2,BY   $]: }@:  KEY FUNCTION ])()( [-] Scroll up one l}ine.]((( [=] Scroll down one line.]--(% [+] Scroll left one character.]..(& [*] Scroll right one }character.](]((( [] Scroll up ten lines.]**(" [] Scroll down ten lines.]//(' [] Scroll }left ten characters.^00(( [] Scroll right ten characters. ^(^( [_] Page up.^( [|] Page }down.$^( [\] Page left..^( [^] Page right.8^(B^((( [P] Send page to printer.L^-(-(" } [RETURN] Continue with reportV^.-@@".  to continue.`^ F:B2y,@BA`j^$aPRINT}ER CHECKa6-@a8 BP`@8@@P:a6-a B@a$}aO-@@# .-@@#E O BP@0uFOOLPROOF INPUT ROUTINE:u4AR@}6.(6-@46-Du!!"*"B`Nu -Xu,6.mm/dd/yy"6-@, B@Bw(}6..67,.(67@,.Lw ARVw-%@ `w##@@K:jw})@ow'"AU** @'6-tw"@'6.~wL"AU)"@'+AR@2 =}@I6-L$w"A&*Bpw%% @2)!A")"Bpw'!67%@,.7%@<,'6-}w67,.>:, >:,w"Bpw&6-%@&7<,0/Bpw"6-%@ " Bpw) 6-6}-&@)AR@w -% 7<,w"7<,4/"6-&@w867%@,.'AR. }8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION},CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*"@}$x"@*"@$x"@*"@$#x"@*"@$(x"@*"@$-x B%}Px B Zx0Y*0N*0Bdx$x.@.@@K:xAR@x -}x)!@1* @) >:%A(,x' @2)!@' >:A`,x)@x"AUB x}"@'6.$x!@1* @6-y'!@* A#'6-&@2y B y -6.>:,} $y]@)0@@C0@@]0@@@"y$|y--@@"}- 7@<@5,y$|T&67@<@,.=:F:Ap,,76-B:,&@T67,.=:A%F:As,,|67<},.P|5 B0@5@@|K +AR@1-@@K Working. Ple}ase Wait.||&6-F:Ap, AiP& B} }'6-B:,&@6.'67<,.R} +@}}B-B ((};-@@; ! Your report generation p}rogram2}f-@@f Lhas now been completed. It is saved on your disk in two segments, called<}9-@@}9 7@, and 7@,.F}b-@@ b H To run your report program, take your data disk, now} your programP}V-@@V :@4,D:7@,d}=-@@= #We wish you luck with your program.i} D:INVOICE.P01MTXNx11805648650 ../../.. SECT PAGE  }  466-12226-15886-16}930-171010-181090-111602-1111612-1471631-1131660-1101766-1121781-131795-141828-1152082-116}2088-1172094-1182101-1202115-1192141-1212152-1222242-1232248-1242254-1252261-1272275-126230}1-1282312-1292402-1302408-1312414-1322421-1342435-1332461-1352472-1362562-1372568-1382574-1}392581-1412595-1402621-1422632-1433832-1453912-1473992-1484073-1464153-1494312-13805Sub Total}3891Tax3971FOB4046Shipping4126Discount4281Invoice Total SECT PAGE  Bpq!!CAFDIRSDDCLINESEVOSKITLE1LBLPRMNULTRCPDTLE2TLE3BPRGRIIDAUTOTLEERDISBREA!} (@@<@ @ @  @!}@j,,( 7(@5@!} !ZZ"#$%&'d(@Hhh;@@,;@ ,;A,;@ !},;@,;A,;@,;@%,;@@,&&;@ ,;@,;Ae,* 6. 67@@,.*!}67@,.#6-@6-@(* 6..67A,.*67@,.2*6.D :*.**67@<@,.=:,"}<* 6. 67@,.*67@,.FAR@d Bi Bp.@.@@"}K:26-@%B:,$6-@%%*-2  6.)@ 6.>:, @-"}@7<,4' A  AP6-$@&@6.7<%@,$$7@<@"},41A)7@<@,42&+).$$7@<@,43A0$$7@<@,44A@"}$$7@<@,45AP,RUN A PROGRAM167@<@,.D:6-@@;7<,4 "}' A0@ J6-&@O''67@<%@,.7@<,TL 67%@<%@,..L67%@<%"}@,.7@ <@,WH-@@%%H   Running 7@<@, ] AS^%a5 "}A`@5@@bF)@)@(@FAU*AUA`c! A"}`!6-?:A6% +AR@%  >5-"(}@@5  Directory for Drive # >=-@@= ## NAME EXT # NAME EXT>?-@@")}? %>-@@$t@INSERT DISK FOR DIRy@ }6-~@-@"*}@  @&(&  in drive .@4-@@"4  to continue@ F:B2y,@"+}Be0@$hBNEW MENU FORMATmBC +A@1AR@CA@|B6-B",}-@2 B-@@B0-@0 7$@0&@)<$@0,B B"Bp`B"-}-@B6-$@ &@B1-@%@%1 7<%@,7<,B @6-%@B".}@6-B B-@@%% B$PFLOAD MENU_F 6.6. D:MENU.FLEiF 6.nF AY"/}pF&&6. Insert disk with menusF Be B0xF+@+@@}F@"0}@F@F-@@F@F&&67$@0&@)<$@0,.F F-@"1}@F 6.6.F@@F&&67$@ &@<$@ ,.F67<,.F F@"2}F-@F 6.F@F&&67$@&@<$@,.F G@G$RINITI"3}ALIZE DIRECTORY R 6-6. B@ R+@+@@R@R''@:,!@G*"4}@:, @XB@R((67B:,%@,.7@<@,R6-%@!R B0R@ B5R""5}B:R$lR }qR0-@ @0 No files found on diskvR ' $y,$6-F:@,&A() "6},$y@B7t$} D:MARKER.EXE} +AR@ }<<;@ ,;@0,;@ ,;"7}AP,;@%,}6@6@@ D:BOOT.SYS}!6-F:Ai,!6-F:Ap,} B U})"8}@}6-%@#}67,.>:,(} B %7}@ Bs}6. D :MENU.BASx}67@<@,."9}=:,}}((6. Insert disk to initialize} Be}B!5}96. D:MARKER.EXE AY%(/ Be9 ":}B!2} B!%}: }-@@:  Initializing disk}}26.D :AUTORUN.SYS267@<@";},.=:,}+@+@@} @}@}86. D:MARKER.EXE AY$. AX"<}8 B!e} B!e}A }-@@A ! Loading program, please wait}6. D:MNUWRT.EXE}6-?:"=}A6AAAH67&%@.Z}<,.R6-%@%W-@"@ \ fpSTEP FIVE: SORTz"@AP,-@.[}@, RECORDS SORTED: 16-%@""-&@6@6-%@6-&@,,6..\}7$%@<+%@,$&@,66/7$%@<+%@,$&@,*A@6617$%@<+%@,$.]}&@,*A@>.37$%@<$+%@,&@,*46-> A>.27$%@<$+%@,&@,.^}*46-> A "6- A 6-P:+%%@,'@,>.37$%@<$+%@,&@,*46._}-> A `>.27$%@<$+%@,&@,*46-> A `6-&@ A `06-$+&,0AV.`}$P:'AV,"A $$6.7$%@<+%@,$,SS67$%@<$++&@,%@,,.7$+%@,%@.a}<$+%@,,$$67$%@<$+%@,,. -@"@ &  A0NUMBER TO STRING".b} A6-"6-A:,# B#6.0001.0000000000"$6-P:L:O:,,,6-O:,'@#.c}46.=:A%,467@<@,.7@,( 6.=:,(67@<@%B:,,.!$-@.d}@ 67<,.>:@&@:7,,,   $DATE REFORMAT6.7@<@,(O"@e/67@,.7@.e}<@,O67@,.7@<@,2O"@i/67@,.7@<@,O67@,.7@<@,.f}< 6. $xSTRING STUFF} 6. ( $B:,"$-@B:,6-@:7,,'!@* .g}A#'6-&@267,.>:,   $$$6.7$%@<+%@,$,OO67$%@<$%@,.7$+%@.h},%@<$+%@,%@,SS67$%@<$++&@,%@,,.7$+%@,%@<$+%@,,$$6.i}7$%@<$+%@,,. A@  STEP SIX WRITE I## FILE  , 6.,67B:,&@ @1@@D:USER>@14VIEWED6-@'@1 AP6}< B@<@@D:USERZ" @VIEWED"@dg +AA(16}AA(CA @UAR@g@@i,,@@ D:NOTES.FLEx A6}? } B(-@@ 2 A?@   <-@@"< " to print, t6}o continue@!!-@@#@  or to exit,F:B2y,"@" A, AP F6}:B2y,"@A0**F:B2y,"@*!A Ap@ }:-@@: 6} Program loading, please wait ...AR% D:MENU.BAS, Ap6<-@@" /-@6}@"< Printing@2-@!6.2-@8J 167%@,.>:,T  3 r$6}<-@@"< " to print, to continue@!!-@@#@  or to exit,6}F:B2y,"@" A, A F:B2y,"@A**F:B2y,"@*!A& A 6}y)6-F:@,&A(& )$"y@B7t$ D2:NOTES.BASE "D:NOTES.BAS ;@@,4^@7 @____________________qu--@@- @ DEFAULT ISvu*-@@* @1 DR }IVE{uAR@uJ  J ; HIT NUMBER FOR DRIVES (1/2) OR TO CONTINUEu<B2y@ B }<F:B2y,@Bu@6-@6- @@@@K:uAiAp }u'AdAU'B2y@u!6-F:Ad,!6-F:B2y,u"@$u#AU B%# B }u Bu @0)!@1$u&Ap@2&&6-F:Ap,u B)@u0-@@ }- @>:&@2,0$y$}1 B 01@@D:USER }@}+4VIEWED!6. D:ME }NU.BAS+ B 5}6. D:NOTES.BAS#}$(}d +AR@1-@@R(Program Loading Please Wait. }dAR2}%D:BOOTPOKTEMPMBASPL2BREADDC(dAR2}%D:BOOTPOKTEMPMBASPL2BREADDC(@)0@@C0@@]0@@@"y$|yA@'-}@"/ A@y$ D:INVOICE.PRGPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMD>D1:INVOICE.DAT165 000112/12/120121212000S100000 SECT PAGE  <M